program Project1; // Zadanie 3.23

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
 znak : char;

begin
 Writeln('Program wyswietla duze litery alfabetu od A do Z i od Z do A.');
 Writeln;
 znak := 'A';
 Write(znak, ', ');

 repeat
  znak := succ(znak);
  if znak < 'Z' then
    Write(znak, ', ')
  else
    Write(znak, '.');
 until znak = 'Z';

 Writeln;

 znak := 'Z';
 Write(znak, ', ');

 repeat
  znak := pred(znak);
  if znak >= 'B' then
    Write(znak, ', ')
  else
    Write(znak, '.');
 until znak = 'A';

 Readln; // czeka na nacisniecie klawisza Enter
end.
